home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
A-Monthly Disks
/
(c)aae.d64
/
setup64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
1KB
|
33 lines
63000 REM C64 SETUP ROUTINE *CONTRIBUTED BY FRED LAYBERGER, OMAHA NEBRASKA
63005 IFA=1THENSYS12*4096+12*256:NEW
63010 BR=12:BG=15:C=0:CC=11:PRINTCHR$(147):POKE53280,BR:POKE53281,BG:POKE646,CC
63015 PRINT"":TM$="C64 SETUP ROUTINE":BM$="SELECT COLORS"
63020 PRINT""TAB(((40-LEN(TM$))/2))TM$"[146]"
63025 PRINT" PRESS:":PRINTSPC(10)"F1 - BACKGROUND COLOR"
63030 PRINTSPC(10)"F3 - BORDER COLOR":PRINTSPC(10)"F5 - CHARACTER COLOR"
63035 PRINTSPC(10)"F7 - COLOR BAR":PRINTSPC(10)"F6 - LOAD/RUN DOS WEDGE"
63040 PRINTSPC(10)"F8 - EXIT"
63045 PRINT""TAB(((40-LEN(BM$))/2))BM$"[146]"
63050 POKE198,0:WAIT198,1:GETA$:IFA$="[139]"THEN63145
63055 IFA$="[134]"THEN63090
63060 IFA$="[133]"THEN63100
63065 IFA$="[136]"THEN63110
63070 IFA$="[140]"THENPRINT"[147]":NEW
63075 IFA$<>"[135]"THEN63020
63080 CC=CC+1:IFCC>15THENCC=0:GOTO63140
63085 GOTO63140
63090 BR=BR+1:IFBR>15THENBR=0:GOTO63140
63095 GOTO63140
63100 BG=BG+1:IFBG>15THENBG=0:GOTO63140
63105 GOTO63140
63110 PRINT"[147]";:POKE53280,0:POKE53281,0
63115 FORA=1TO20:PRINT" [129] [158] [153] [156] [154] ";
63120 NEXT:FORA=1TO3:PRINT"[151] [152] ";
63125 PRINT"[155] ";:NEXT:PRINT"";:POKE198,0
63130 GETA$:IFA$=""THEN63130
63135 CLR:PRINT"[147]":GOTO63015
63140 POKE53280,BR:POKE53281,BG:POKE646,CC:GOTO63015
63145 PRINT"[147]LOADING DOS 5.1"
63150 IFA=0THENA=1:LOAD"DOS 5.1",8,1:RUN
63155 NEW